home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / amos2.dms / amos2.adf / STARS_EXTENSION / stars_demo.AMOS / stars_demo.amosSourceCode
AMOS Source Code  |  1992-02-26  |  305b  |  10 lines
  1. 'by steve in 30 secs flat, first time ive ever used this ext, very good stuff
  2. Screen Open 0,320,256,16,Lowres
  3. Hide : Cls 0
  4.  Extension_20_003A 0,1,128
  5. Do 
  6. If Jup(1) Then Extension_20_0070 2
  7. If Jdown(1) Then Extension_20_0070 3
  8. If Jleft(1) Then Extension_20_0070 0
  9. If Jright(1) Then Extension_20_0070 1
  10. Loop